10 POKE 784,108:POKE 785,122:POKE 786,0
20 DEF FN RS(LN)=USR(LN)+POS(" 
[184] [163][168][168][198]_[165]_L'[168]")
30 DEF FN P(X)=USR(X)+POS("[162]D[181]6[133]=[181]7[133]> [169] >[169] [172] +[188]L[178][183] [161][183] '[184][169]
[133] [149][169] Y[168]L")+D
40 POKE 53280,0:POKE 53281,0:POKE 646,1:PRINT CHR$(147)
50 V=53248:POKE 2040,11:POKE V+21,1:POKE V,24:POKE V+1,53:POKE V+39,7
60 PRINT "  . . . . . . . . . . . . . .":POKE 704,FN P(0)
70 FOR I=24 TO 255 STEP 8
80 X=FN RS(100+10*(I AND 8)):POKE 704,FN P(0):POKE V,I:POKE 1061+I/8,32
90 NEXT
100 DATA 000,000,000,000,255,000,003,255
110 DATA 192,015,255,240,031,231,248,063
120 DATA 227,252,127,255,248,255,255,224
130 DATA 255,255,128,255,254,000,255,248
140 DATA 000,255,248,000,255,254,000,127
150 DATA 255,128,063,255,224,031,255,248
160 DATA 015,255,240,003,255,192,000,255
170 DATA 000,000,000,000,000,000,000,-1
180 DATA 000,000,000,000,255,000,003,255
190 DATA 192,015,255,240,031,231,248,063
200 DATA 227,252,127,255,254,255,255,255
210 DATA 255,255,255,255,255,255,255,248
220 DATA 000,255,255,255,255,255,255,127
230 DATA 255,254,063,255,252,031,255,248
240 DATA 015,255,240,003,255,192,000,255
250 DATA 000,000,000,000,000,000,000,-1